home *** CD-ROM | disk | FTP | other *** search
/ D-Rom (UK) / D_ROM / D_ROM (Track 01).bin / drom.dir / 00077.ls < prev    next >
Encoding:
Text File  |  1997-07-24  |  1.5 KB  |  45 lines
  1. on enterFrame
  2.   global gsetup_pointer, gworklist, ghouselist, gtechnolist, gbeatzlist, gurbanlist, ggaragelist, gdrumlist
  3.   depuppify()
  4.   if (the platform contains "16") = 0 then
  5.     puppetSound(0)
  6.   end if
  7.   puppetSprite(20, 1)
  8.   puppetSprite(21, 1)
  9.   puppetSprite(45, 1)
  10.   puppetSprite(12, 1)
  11.   if gsetup_pointer = "hs.mov" then
  12.     set gworklist to ghouselist
  13.     setup_room_generic(ghousereflist, "housecast", ghouselist)
  14.     set the member of sprite 21 to member "housestrap"
  15.   end if
  16.   if gsetup_pointer = "tc.mov" then
  17.     set gworklist to gtechnolist
  18.     setup_room_generic(gtechnoreflist, "technocast", gtechnolist)
  19.     set the member of sprite 21 to member "tecnostrap"
  20.   end if
  21.   if gsetup_pointer = "d&b.mov" then
  22.     set gworklist to gdrumlist
  23.     setup_room_generic(gdrumreflist, "drumcast", gdrumlist)
  24.     set the member of sprite 21 to member "drumstrap"
  25.   end if
  26.   if gsetup_pointer = "abz.mov" then
  27.     set gworklist to gbeatzlist
  28.     setup_room_generic(gbeatzreflist, "beatzcast", gbeatzlist)
  29.     set the member of sprite 21 to member "beatzstrap"
  30.   end if
  31.   if gsetup_pointer = "ur_jazz.mov" then
  32.     set gworklist to gurbanlist
  33.     setup_room_generic(gurbanreflist, "urbancast", gurbanlist)
  34.     set the member of sprite 21 to member "urbanstrap"
  35.   end if
  36.   if gsetup_pointer = "grg.mov" then
  37.     set gworklist to ggaragelist
  38.     setup_room_generic(ggaragereflist, "garagecast", ggaragelist)
  39.     set the member of sprite 21 to member "garagestrap"
  40.   end if
  41.   repeat with x in [25, 26, 27, 28, 36, 37, 38]
  42.     set the visible of sprite x to 0
  43.   end repeat
  44. end
  45.